home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / auto-r1g / browser2.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-08-27  |  6.0 KB  |  179 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form frmBrowser 
  5.    Caption         =   "Browser Form"
  6.    ClientHeight    =   4395
  7.    ClientLeft      =   60
  8.    ClientTop       =   630
  9.    ClientWidth     =   5880
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4395
  12.    ScaleWidth      =   5880
  13.    Begin MSComctlLib.StatusBar sta 
  14.       Align           =   2  'Align Bottom
  15.       Height          =   270
  16.       Left            =   0
  17.       TabIndex        =   1
  18.       Top             =   4125
  19.       Width           =   5880
  20.       _ExtentX        =   10372
  21.       _ExtentY        =   476
  22.       Style           =   1
  23.       _Version        =   393216
  24.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  25.          NumPanels       =   1
  26.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  27.          EndProperty
  28.       EndProperty
  29.    End
  30.    Begin SHDocVwCtl.WebBrowser wbr 
  31.       Height          =   1560
  32.       Index           =   0
  33.       Left            =   15
  34.       TabIndex        =   0
  35.       Top             =   375
  36.       Width           =   10920
  37.       ExtentX         =   19262
  38.       ExtentY         =   2752
  39.       ViewMode        =   1
  40.       Offline         =   0
  41.       Silent          =   0
  42.       RegisterAsBrowser=   0
  43.       RegisterAsDropTarget=   1
  44.       AutoArrange     =   -1  'True
  45.       NoClientEdge    =   0   'False
  46.       AlignLeft       =   0   'False
  47.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  48.       Location        =   ""
  49.    End
  50.    Begin SHDocVwCtl.WebBrowser wbr 
  51.       Height          =   4650
  52.       Index           =   1
  53.       Left            =   90
  54.       TabIndex        =   2
  55.       Top             =   2265
  56.       Width           =   9315
  57.       ExtentX         =   16431
  58.       ExtentY         =   8202
  59.       ViewMode        =   1
  60.       Offline         =   0
  61.       Silent          =   0
  62.       RegisterAsBrowser=   0
  63.       RegisterAsDropTarget=   1
  64.       AutoArrange     =   -1  'True
  65.       NoClientEdge    =   0   'False
  66.       AlignLeft       =   0   'False
  67.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  68.       Location        =   ""
  69.    End
  70.    Begin VB.Menu mnuFile 
  71.       Caption         =   "&File"
  72.       Begin VB.Menu mnuFileStart 
  73.          Caption         =   "&Start"
  74.       End
  75.       Begin VB.Menu mnuFileReset 
  76.          Caption         =   "&Reset"
  77.       End
  78.       Begin VB.Menu mnuFileBar1 
  79.          Caption         =   "-"
  80.       End
  81.       Begin VB.Menu mnuFileClose 
  82.          Caption         =   "&Close"
  83.       End
  84.    End
  85. Attribute VB_Name = "frmBrowser"
  86. Attribute VB_GlobalNameSpace = False
  87. Attribute VB_Creatable = False
  88. Attribute VB_PredeclaredId = True
  89. Attribute VB_Exposed = False
  90. Option Explicit
  91. ' Browser.frm (Vb6) Mar 1999   Written by Mark Bevins Orion Studios  markb@orionstudios.com
  92. ' main form for Project "TwoWbr"
  93. ' Requires Project/References entry for
  94. '   "Microsoft HTML Object Library" (mshtml.dll)
  95. '=================================================================================
  96. ' Module-level Variables
  97. Private MARGINx2 As Long
  98. Private mVertUsedArea As Long
  99. Private WithEvents mFidelity As MSHTML.HTMLAnchorElement
  100. Attribute mFidelity.VB_VarHelpID = -1
  101. ' Module-level Constants
  102. Private Const MARGIN = 15
  103. Private Const WBR_START = 0
  104. Private Const WBR_LINK = 1
  105. Private Const IMG_SRC = "http://www.orionstudios.net/fidelity.gif" ' links to IMG_LINK
  106. Private Const IMG_NAME = "fidelity.gif" ' see wbr_DocumentComplete
  107. Private Const IMG_TITLE = " Click for Fidelity! "
  108. Private Const IMG_LINK = "http://www.orionstudios.com" '<--- Link to go to
  109. Private Const BLANK_PAGE = "about:<HTML><BODY BGCOLOR=gainsboro SCROLL=NO></BODY></HTML>"
  110. Private Const START_HTML _
  111.         = "<HTML>" _
  112.         & "<BODY BGCOLOR=lightskyblue SCROLL=NO>" _
  113.         & "<CENTER>" _
  114.         & "<A ID=idFidelity HREF=" & IMG_LINK & ">" _
  115.         & "<IMG SRC=" & IMG_SRC & " TITLE='" & IMG_TITLE & "'>" _
  116.         & "</A>" _
  117.         & "</CENTER>" _
  118.         & "</BODY>" _
  119.         & "</HTML>"
  120. Private Sub Form_Load()
  121.     With Me
  122.         .Caption = App.FileDescription
  123.         .Move 1200, 0, 9600, 8400
  124.     End With
  125.     MARGINx2 = MARGIN * 2
  126.     mVertUsedArea = MARGINx2 + sta.Height
  127.     With wbr(WBR_LINK)
  128.         .Visible = False
  129.         .Navigate BLANK_PAGE
  130.     End With
  131.     wbr(WBR_START).Navigate BLANK_PAGE
  132. End Sub
  133. Private Sub mnuFile_Click()
  134.     mnuFileStart = (mFidelity Is Nothing)
  135. End Sub
  136. Private Sub mnuFileStart_Click()
  137.     With wbr(WBR_LINK)
  138.         .Visible = False
  139.         .Navigate BLANK_PAGE
  140.     End With
  141.     With wbr(WBR_START)
  142.         .Navigate "about:" & START_HTML
  143.         .Visible = True
  144.     End With
  145. End Sub
  146. Private Sub mnuFileReset_Click()
  147.     With wbr(WBR_LINK)
  148.         .Visible = False
  149.         .Navigate BLANK_PAGE
  150.     End With
  151.     With wbr(WBR_START)
  152.         .Navigate BLANK_PAGE
  153.         .Visible = True
  154.     End With
  155. End Sub
  156. Private Sub mnuFileClose_Click()
  157.     Unload Me
  158. End Sub
  159. Private Sub wbr_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant)
  160.     If pDisp = wbr(index).Object Then
  161.         If InStr(1, URL, IMG_NAME, vbTextCompare) Then
  162.             Set mFidelity = wbr(index).Document.All.idFidelity
  163.         Else
  164.             Set mFidelity = Nothing
  165.         End If
  166.     End If
  167. End Sub
  168. Private Sub wbr_StatusTextChange(index As Integer, ByVal Text As String)
  169.     sta.SimpleText = Text
  170. End Sub
  171. Private Function mFidelity_onclick() As Boolean
  172. ' When IMG_SRC is clicked, use a second WebBrowser to navigate to the link
  173.     mFidelity_onclick = False   ' cancel default behaviour
  174.     wbr(WBR_START).Visible = False  ' hide WebBrowser containing image
  175.     wbr(WBR_LINK).Visible = True
  176.     DoEvents
  177.     wbr(WBR_LINK).Navigate IMG_LINK ' use a second WebBrowser to display linked page
  178. End Function
  179.